Small improvement for epa-display-error (bug#24553)

* lisp/epa.el (epa-display-error): Report the actual program in use.

diff --git a/lisp/epa.el b/lisp/epa.el
index 4378c09738dee19f7f67bbe42bcf768e2f4f3c19..52963b6d3cda82bfd6dd7c6f049dfaaedea4d283 100644 (file)
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -628,7 +628,7 @@ If SECRET is non-nil, list secret keys instead of public keys."
                       (`import-keys "Error while importing keys with \"%s\":")
                       (`export-keys "Error while exporting keys with \"%s\":")
                       (_ "Error while executing \"%s\":\n\n"))
-                    epg-gpg-program)
+                    (epg-context-program context))
                    "\n\n"
                    (epg-context-error-output context)))
          (epa-info-mode)